unit Informe_ItemAssistencia;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TFrmInforme_ItemAssistencia = class(TForm)
    p_informeitem: TPanel;
    p_informe: TRadioGroup;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmInforme_ItemAssistencia: TFrmInforme_ItemAssistencia;
  press_ok                  : boolean;
  informe_itemtipo          : integer;

implementation

{$R *.DFM}

procedure TFrmInforme_ItemAssistencia.FormActivate(Sender: TObject);
begin
 press_ok:= false;
end;

procedure TFrmInforme_ItemAssistencia.BitBtn7Click(Sender: TObject);
begin
 informe_itemtipo:= p_informe.itemindex;
 press_ok        := true;
 close;
end;

procedure TFrmInforme_ItemAssistencia.BitBtn8Click(Sender: TObject);
begin
 close;
end;

end.
